home *** CD-ROM | disk | FTP | other *** search
/ Savor the Moment - Entert…ing Without Reservations / Savoe the Moment - Entertaining Without Reservations.iso / pc / Casting.dxr / 00044.ls < prev    next >
Encoding:
Text File  |  1999-10-05  |  408 b   |  30 lines
  1. global sc, gTimer
  2.  
  3. on prepareMovie
  4.   global gSwaMiaw
  5.   tell window("miaw")
  6.     member("loop").volume = 0
  7.     pause(member("loop"))
  8.     updateStage()
  9.   end tell
  10. end
  11.  
  12. on startMovie
  13.   cursor(0)
  14.   set the timeoutLength to 5 * 60 * 60
  15. end
  16.  
  17. on soundchoice me
  18.   if sc = 1 then
  19.     set the soundLevel to 7
  20.     sc = 0
  21.   else
  22.     set the soundLevel to 0
  23.     sc = 1
  24.   end if
  25. end
  26.  
  27. on timeout
  28.   play movie "show.dir"
  29. end
  30.